﻿Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Exlwr As New QueryExcel.clsExcelWriter("C:\Test.xls")
        With Exlwr
            .WriteStartDocument()
            .WriteStartWorksheet("Test")
            .WriteStartRow()
            .WriteExcelStyledCell("This is text", QueryExcel.clsExcelWriter.CellStyle.General)
            .WriteExcelAutoStyledCell(2)
            .WriteExcelAutoStyledCell("hi")
            .WriteExcelAutoStyledCell(CDate("11-05-1982"))
            .WriteEndRow()
            .WriteEndWorksheet()
            .WriteEndDocument()
            .Close()
        End With


    End Sub
End Class
